home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MH Checking & Savings v2.4d.cpt / Checking & Savings Demo2.4 / card_13730.txt < prev    next >
Text File  |  1988-02-27  |  3KB  |  118 lines
  1. -- card: 13730 from stack: in.4
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 13047
  5. -- name: RegCard
  6.  
  7.  
  8. -- part 4 (field)
  9. -- low flags: 01
  10. -- high flags: 0000
  11. -- rect: left=47 top=135 right=192 bottom=243
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 13
  19. -- part name: Check Address
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   beep
  23. end mouseUp
  24.  
  25.  
  26. -- part 5 (button)
  27. -- low flags: 80
  28. -- high flags: A003
  29. -- rect: left=130 top=199 right=222 bottom=213
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 1
  33. -- font id: 0
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: Accept
  38. ----- HyperTalk script -----
  39. on mouseUp
  40.   Global PersonalAddress
  41.  
  42.   hide card button "Accept"
  43.   hide card button "Don't Accept"
  44.  
  45.   set locktext of card field "Check Address" to true
  46.   put card field "Check Address" into PersonalAddress
  47.   set lockscreen to true
  48.   go to card "a" of background "a"
  49.   set style of background field "Check Address" to opaque
  50.  
  51.   answer "SEE THE DETAILED MANUAL TO PRINT & MAIL" && "IN YOUR REGISTRATION! or Do Now" with "Do Now" or "OK"
  52.   if it is "Do Now" then
  53.     go to card 2 of stack "Checking & Savings Help"
  54.   else
  55.     go to card "Map"
  56.   end if
  57.  
  58. end mouseUp
  59.  
  60.  
  61. -- part 6 (button)
  62. -- low flags: 80
  63. -- high flags: A003
  64. -- rect: left=220 top=199 right=221 bottom=320
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: Don't Accept
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   hide card button "Accept"
  76.   hide card button "Don't Accept"
  77.  
  78.   show background field "Message"
  79.   put empty into card field "Check Address"
  80.   set style of card field "Check Address" to transparent
  81.   set locktext of card field "Check Address" to true
  82.  
  83.   go to card "Map"
  84. end mouseUp
  85.  
  86.  
  87.  
  88. -- part 7 (button)
  89. -- low flags: 00
  90. -- high flags: 2000
  91. -- rect: left=468 top=309 right=342 bottom=512
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 9761 / 9761
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: Return
  100. ----- HyperTalk script -----
  101. on mouseUp
  102.   Global LimitCards2
  103.  
  104.   --set the hilite of background button ID 54 to False
  105.   --Put empty into LimitCards2
  106.   go to card "Map"
  107.  
  108. end mouseUp
  109.  
  110.  
  111.  
  112. -- part contents for background part 1
  113. ----- text -----
  114. Demo Version 2.4
  115. HyperCard CHECKING & SAVINGS
  116.  
  117. Mac Help Company  ‚Ä¢  1800 East Market Street  ‚Ä¢  Long Beach, CA  90805  ‚Ä¢  (213) 428-7414
  118.